﻿Public Class Form1

    Private gitee_url As String = "https://gitee.com/SPGLP/BZP-Cmd-Game"

    Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
        Shell("notepad " & Application.StartupPath & "\..\README.md", AppWinStyle.NormalFocus)
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Shell(Application.StartupPath & "\vbg2001.bat", AppWinStyle.NormalFocus)
    End Sub

    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Shell("notepad " & Application.StartupPath & "\..\LICENSE.md", AppWinStyle.NormalFocus)
    End Sub

    Private Sub LinkLabel3_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
        Dim pc As New ProcessStartInfo(gitee_url)
        pc.UseShellExecute = True
        Process.Start(pc)
        'Process.Start("https://gitee.com/SPGLP/BZP-Cmd-Game")
    End Sub

    Private Sub LinkLabel4_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked
        MessageBox.Show(text:="敬请期待英文版的上线", caption:="作者留坑", icon:=MessageBoxIcon.Asterisk, buttons:=MessageBoxButtons.OK)
    End Sub
End Class
